home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / UCB Logo 3.0 / CSLS / pp < prev    next >
Text File  |  1992-09-04  |  2KB  |  64 lines
  1. TO FITS :THING :LEFT :RIGHT
  2. OP (:LEFT+COUNT :THING) < (:RIGHT-:LEVEL)
  3. END
  4.  
  5. TO FITS.FIRST :THING :LEFT :RIGHT
  6. IF WORDP :THING [OP FITS :THING :LEFT :RIGHT]
  7. IF EMPTYP :THING [OP (:LEFT+3) < :RIGHT]
  8. OP FITS.FIRST FIRST :THING :LEFT+1 :WIDTH-10
  9. END
  10.  
  11. TO MARGIN
  12. IF :ITEM = 1 [STOP]
  13. PR []
  14. MAKE "LEFT :LEVELPOS
  15. REPEAT :LEFT [TYPE "| |]
  16. MAKE "LINELEVEL :LEVEL
  17. END
  18.  
  19. TO PP :THING
  20. LOCAL [LINELEVEL WIDTH]
  21. MAKE "LINELEVEL 0
  22. MAKE "WIDTH 80
  23. IGNORE PP1 :THING 0 0 0 1 1
  24. PR []
  25. END
  26.  
  27. TO PP1 :THING :LEFT :LEVEL :LEVELPOS :ITEM :COUNTER
  28. IF NOT FITS.FIRST :THING :LEFT :WIDTH [MARGIN]
  29. IF WORDP :THING [OP PPWORD :THING]
  30. TYPE "\[
  31. MAKE "LEFT PP2 :THING :LEFT+1 :LEVEL+1 :LEVELPOS 1 COUNT :THING
  32. TYPE "\]
  33. IF :ITEM < :COUNTER [TYPE "| | OP :LEFT+2]
  34. OP :LEFT+1
  35. END
  36.  
  37. TO PP2 :THING :LEFT :LEVEL :LEVELPOS :ITEM :COUNTER
  38. IF EMPTYP :THING [OP :LEFT]
  39. IF :ITEM = 1 [MAKE "LEVELPOS :LEFT]
  40. IF :LEVEL < :LINELEVEL [MARGIN]
  41. MAKE "LEFT PP1 FIRST :THING :LEFT :LEVEL :LEVELPOS :ITEM :COUNTER
  42. OP PP2 BF :THING :LEFT :LEVEL :LEVELPOS :ITEM+1 :COUNTER
  43. END
  44.  
  45. TO PPWORD :THING
  46. TYPE :THING
  47. IF :ITEM < :COUNTER [TYPE "| | OP :LEFT+1+COUNT :THING]
  48. OP :LEFT+COUNT :THING
  49. END
  50.  
  51. MAKE "RECORDS [[[MEET THE BEATLES] [BEATLES] [[I WANT TO HOLD YOUR HAND] ~
  52.    [I SAW HER STANDING THERE] [THIS BOY] [IT WON'T BE LONG] ~
  53.    [ALL I'VE GOT TO DO] [ALL MY LOVING] [DON'T BOTHER ME] [LITTLE CHILD] ~
  54.    [TILL THERE WAS YOU] [HOLD ME TIGHT] [I WANNA BE YOUR MAN] ~
  55.    [NOT A SECOND TIME]]] [[SECOND ALBUM] [BEATLES] ~
  56.    [[ROLL OVER, BEETHOVEN] [THANK YOU GIRL] ~
  57.    [YOU REALLY GOT A HOLD ON ME] [DEVIL IN HER HEART] [MONEY] ~
  58.    [YOU CAN'T DO THAT] [LONG TALL SALLY] [I CALL YOUR NAME] ~
  59.    [PLEASE MR. POSTMAN] [I'LL GET YOU] [SHE LOVES YOU]]] ~
  60.    [[SOMETHING NEW] [BEATLES] [[I'LL CRY INSTEAD] [THINGS WE SAID TODAY] ~
  61.    [ANY TIME AT ALL] [WHEN I GET HOME] [SLOW DOWN] [MATCHBOX] ~
  62.    [TELL ME WHY] [AND I LOVE HER] [I'M HAPPY JUST TO DANCE WITH YOU] ~
  63.    [IF I FELL] [KOMM, GIB MIR DEINE HAND]]]]
  64.